home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / fbuilder / delphi / demos / extdemfm.dfm / extdemfm.txt
Encoding:
Text File  |  1996-09-15  |  3.7 KB  |  154 lines
  1. object BtnBottomDlg: TBtnBottomDlg
  2.   Left = 84
  3.   Top = 148
  4.   ActiveControl = RegisterFuncBtn
  5.   BorderStyle = bsDialog
  6.   Caption = 'Extensibility Demo'
  7.   ClientHeight = 397
  8.   ClientWidth = 627
  9.   Font.Color = clBlack
  10.   Font.Height = -14
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = [fsBold]
  13.   PixelsPerInch = 120
  14.   Position = poScreenCenter
  15.   TextHeight = 16
  16.   object Bevel1: TBevel
  17.     Left = 10
  18.     Top = 10
  19.     Width = 471
  20.     Height = 366
  21.     Shape = bsFrame
  22.     IsControl = True
  23.   end
  24.   object RunBtn: TSpeedButton
  25.     Left = 433
  26.     Top = 35
  27.     Width = 31
  28.     Height = 31
  29.     Hint = 'Execute the function in the edit box'
  30.     Glyph.Data = {
  31.       78010000424D7801000000000000760000002800000020000000100000000100
  32.       04000000000000000000120B0000120B00000000000000000000000000000000
  33.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  34.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  35.       555555555555555555555555555555555555555555FF55555555555559055555
  36.       55555555577FF5555555555599905555555555557777F5555555555599905555
  37.       555555557777FF5555555559999905555555555777777F555555559999990555
  38.       5555557777777FF5555557990599905555555777757777F55555790555599055
  39.       55557775555777FF5555555555599905555555555557777F5555555555559905
  40.       555555555555777FF5555555555559905555555555555777FF55555555555579
  41.       05555555555555777FF5555555555557905555555555555777FF555555555555
  42.       59905555555555555777555555555555555555555555555555550000}
  43.     NumGlyphs = 2
  44.     OnClick = RunBtnClick
  45.   end
  46.   object Label1: TLabel
  47.     Left = 25
  48.     Top = 275
  49.     Width = 61
  50.     Height = 16
  51.     Caption = '&Result'
  52.     FocusControl = Resultmemo
  53.   end
  54.   object Label2: TLabel
  55.     Left = 25
  56.     Top = 15
  57.     Width = 59
  58.     Height = 16
  59.     Caption = '&Function'
  60.     FocusControl = newFuncsCombo
  61.   end
  62.   object CancelBtn: TBitBtn
  63.     Left = 497
  64.     Top = 240
  65.     Width = 115
  66.     Height = 51
  67.     TabOrder = 0
  68.     Kind = bkClose
  69.     Margin = 2
  70.     Style = bsNew
  71.     Spacing = -1
  72.     IsControl = True
  73.   end
  74.   object HelpBtn: TBitBtn
  75.     Left = 496
  76.     Top = 302
  77.     Width = 115
  78.     Height = 51
  79.     TabOrder = 1
  80.     OnClick = HelpBtnClick
  81.     Kind = bkHelp
  82.     Margin = 2
  83.     Style = bsNew
  84.     Spacing = -1
  85.     IsControl = True
  86.   end
  87.   object newFuncsCombo: TComboBox
  88.     Left = 25
  89.     Top = 35
  90.     Width = 396
  91.     Height = 24
  92.     ItemHeight = 16
  93.     TabOrder = 2
  94.   end
  95.   object NewFuncsListbox: TListBox
  96.     Left = 25
  97.     Top = 70
  98.     Width = 441
  99.     Height = 191
  100.     Enabled = False
  101.     ItemHeight = 16
  102.     Items.Strings = (
  103.       ' Copy("exprlist.txt","newfil.txt") '
  104.       ' Rename("newfil.txt","newtxt.old")'
  105.       ' exec("calc.exe", SW_SHOWNORMAL) '
  106.       ' execwait("notepad.exe",SW_MAXIMIZE)'
  107.       ' delete("myfile.fil")'
  108.       ' errormsg("This is an error box")'
  109.       ' msgbox("This is a message box") '
  110.       ' beep( MB_ICONHAND )'
  111.       ' yesno("Have you made a backup ?")'
  112.       ' yesnocancel("Would you like to save your work ?")'
  113.       ' inputstring("What is your name","Name","Bob")')
  114.     TabOrder = 3
  115.     OnClick = NewFuncsListboxClick
  116.   end
  117.   object Resultmemo: TMemo
  118.     Left = 25
  119.     Top = 295
  120.     Width = 441
  121.     Height = 61
  122.     Lines.Strings = (
  123.       '')
  124.     TabOrder = 4
  125.   end
  126.   object RegisterFuncBtn: TBitBtn
  127.     Left = 495
  128.     Top = 15
  129.     Width = 115
  130.     Height = 51
  131.     Hint = 'Register the functions used in the listbox'
  132.     Caption = 'Register'
  133.     TabOrder = 5
  134.     OnClick = RegisterFuncBtnClick
  135.     Style = bsNew
  136.   end
  137.   object UnregisterBtn: TBitBtn
  138.     Left = 494
  139.     Top = 70
  140.     Width = 115
  141.     Height = 51
  142.     Hint = 'Unregister the functions used in the listbox'
  143.     Caption = 'Unregister'
  144.     TabOrder = 6
  145.     OnClick = UnregisterBtnClick
  146.     Style = bsNew
  147.   end
  148.   object SimpleExpression: TExpression
  149.     UseExceptions = False
  150.     Left = 510
  151.     Top = 145
  152.   end
  153. end
  154.